home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / intuition / Boopsi.p < prev    next >
Encoding:
Text File  |  2004-01-31  |  13.7 KB  |  384 lines
  1. pTempVar <- <primitive 110 20 >
  2. <primitive 112 pTempVar 1  " coerceMethod:message: " \
  3.   #( #[ 16r30 16r12 16r21 16r22 16rFA 16r04 16rEE 16rF3] \
  4.     #( 15  )) >
  5.  
  6. <primitive 112 pTempVar 2  " doSuperMethod:message: " \
  7.   #( #[ 16r30 16r12 16r21 16r22 16rFA 16r04 16rEE 16rF3] \
  8.     #( 14  )) >
  9.  
  10. <primitive 112 pTempVar 3  " translateBoopsiErrorNumber " \
  11.   #( #[ 16r30 16rFA 16r01 16rEE 16rF3] \
  12.     #( 13  )) >
  13.  
  14. <primitive 112 pTempVar 4  " doGadgetMethod:from:req:message: " \
  15.   #( #[ 16r30 16r21 16r22 16r23 16r24 16rFA 16r05 16rEE 16rF3] \
  16.     #( 12  )) >
  17.  
  18. <primitive 112 pTempVar 5  " nextObject: " \
  19.   #( #[ 16r30 16r21 16rFA 16r02 16rEE 16rF3] \
  20.     #( 11  )) >
  21.  
  22. <primitive 112 pTempVar 6  " setGadgetAttributes:from:req:tags: " \
  23.   #( #[ 16r30 16r21 16r22 16r23 16r24 16rFA 16r05 16rEE 16rF3] \
  24.     #( 10  )) >
  25.  
  26. <primitive 112 pTempVar 7  " setAttributes:tags: " \
  27.   #( #[ 16r59 16r21 16r22 16rFA 16r03 16rEE 16rF3] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 8  " getAttribute:from:into: " \
  31.   #( #[ 16r58 16r21 16r22 16r23 16rFA 16r04 16rEE 16rF3] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 9  " releaseGIRPort " \
  35.   #( #[ 16r57 16r11 16rFA 16r02 16rEE 16rF2 16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 10  " obtainGIRPort: " \
  39.   #( #[ 16r56 16r21 16rFA 16r02 16rEE 16rF1 16r61 16rF3] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 11  " makeBoopsiClass:for:id:size:flags: " \
  43.   #( #[ 16r55 16r21 16r23 16r22 16r24 16r25 16rFA 16r06 16rEE 16r62 16r20 \
  44.         16r80 16r00 16rF2 16r12 16rF3] \
  45.     #( #xxxAddBoopsiClass  )) >
  46.  
  47. <primitive 112 pTempVar 12  " freeBoopsiClass " \
  48.   #( #[ 16r54 16r12 16rFA 16r02 16rEE 16r71 16r55 16r50 16r12 16rFA 16r03 \
  49.         16rFA 16rF2 16r21 16rF3] \
  50.     #(  )) >
  51.  
  52. <primitive 112 pTempVar 13  " removeBoopsiClass " \
  53.   #( #[ 16r53 16r12 16rFA 16r02 16rEE 16rF2 16rF5] \
  54.     #(  )) >
  55.  
  56. <primitive 112 pTempVar 14  " xxxAddBoopsiClass " \
  57.   #( #[ 16r52 16r12 16rFA 16r02 16rEE 16rF2 16rF5] \
  58.     #(  )) >
  59.  
  60. <primitive 112 pTempVar 15  " boopsiName: " \
  61.   #( #[ 16r13 16r21 16rB1 16rF3] \
  62.     #(  )) >
  63.  
  64. <primitive 112 pTempVar 16  " newBoopsiObject:in:tags: " \
  65.   #( #[ 16r51 16r22 16r21 16r23 16rFA 16r04 16rEE 16rF1 16r60 16rF3] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 17  " boopsiTag: " \
  69.   #( #[ 16r14 16r21 16r81 16r00 16rF3] \
  70.     #( #systemTag:  )) >
  71.  
  72. <primitive 112 pTempVar 18  " new " \
  73.   #( #[ 16r13 16rA1 16rF7 16r04 16r40 16rA0 16rF1 16r63 16rF2 16r14 16rA1 \
  74.         16rF7 16r04 16r41 16rA0 16rF1 16r64 16rF2 16r20 16rF3] \
  75.     #( #BoopsiClassNames #BoopsiTags  )) >
  76.  
  77. <primitive 112 pTempVar 19  " disposeObject: " \
  78.   #( #[ 16r05 16r10 16r21 16rFA 16r02 16rEE 16rF2 16r55 16r50 16r21 16rFA \
  79.         16r03 16rFA 16rF2 16r5D 16rF3] \
  80.     #(  )) >
  81.  
  82. <primitive 112 pTempVar 20  " dispose " \
  83.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rEE 16rF2 16r55 16r50 16r10 16rFA \
  84.         16r03 16rFA 16rF2 16r5D 16rF3] \
  85.     #(  )) >
  86.  
  87. <primitive 98 #Boopsi \
  88.   <primitive 97 #Boopsi #Object #AmigaTalk:Intuition/Boopsi.st \
  89.    #(  #private #rastPortObj #iclassObj #boopsiNames #boopsiTags ) \
  90.    #( #coerceMethod:message: #doSuperMethod:message:  \
  91.        #translateBoopsiErrorNumber #doGadgetMethod:from:req:message: #nextObject:  \
  92.        #setGadgetAttributes:from:req:tags: #setAttributes:tags: #getAttribute:from:into: #releaseGIRPort  \
  93.        #obtainGIRPort: #makeBoopsiClass:for:id:size:flags: #freeBoopsiClass  \
  94.        #removeBoopsiClass #xxxAddBoopsiClass #boopsiName: #newBoopsiObject:in:tags: #boopsiTag:  \
  95.        #new #disposeObject: #dispose  ) \
  96.   pTempVar 6 7 > #ordinary >
  97.  
  98. pTempVar <- <primitive 110 5 >
  99. <primitive 112 pTempVar 1  " xxxSetup " \
  100.   #( #[ 16r13 16rA1 16rF7 16r06 16r05 16r1E 16r59 16rB0 16rF1 16r63 16rF2 \
  101.         16r10 16r12 16r81 16r00 16rF2 16r10 16r11 16r50 16r81 16r01 \
  102.         16r81 16r02 16rF2 16r13 16r51 16r20 16r33 16r91 16r04 16rD0 \
  103.         16rF2 16r13 16r52 16r10 16rD0 16rF2 16r13 16r53 16r20 16r35 \
  104.         16r91 16r04 16rD0 16rF2 16r13 16r54 16r11 16rD0 16rF2 16r13 \
  105.         16r55 16r20 16r36 16r91 16r04 16rD0 16rF2 16r13 16r56 16r12 \
  106.         16r0A 16r31 16rD0 16rF2 16r13 16r57 16r20 16r37 16r91 16r04 \
  107.         16rD0 16rF2 16r13 16r58 16r12 16r0A 16r32 16rD0 16rF2 16r13 \
  108.         16r59 16r20 16r38 16r91 16r04 16rD0 16rF2 16r20 16r20 16r39 \
  109.         16r91 16r0A 16r5D 16r13 16r93 16r0B 16rF3] \
  110.     #( #setITextOrigin: #@ #setPens: #IA_Data #boopsiTag: #IA_FGPen \
  111.         #IA_Left #IA_Top #TAG_DONE #ITEXTCLASS #boopsiName: #newBoopsiObject:in:tags:  )) >
  112.  
  113. <primitive 112 pTempVar 2  " initialize:at:color: " \
  114.   #( #[ 16r20 16r21 16r81 16r00 16rF2 16r20 16r22 16r81 16r01 16rF2 16r20 \
  115.         16r23 16r81 16r02 16rF2 16r20 16r80 16r03 16rF3] \
  116.     #( #itextString: #origin: #color: #xxxSetup  )) >
  117.  
  118. <primitive 112 pTempVar 3  " color: " \
  119.   #( #[ 16r21 16r61 16rF5] \
  120.     #(  )) >
  121.  
  122. <primitive 112 pTempVar 4  " origin: " \
  123.   #( #[ 16r21 16r62 16rF5] \
  124.     #(  )) >
  125.  
  126. <primitive 112 pTempVar 5  " itextString: " \
  127.   #( #[ 16r40 16r21 16rB0 16r60 16rF5] \
  128.     #( #IText  )) >
  129.  
  130. <primitive 98 #BoopsiText \
  131.   <primitive 97 #BoopsiText #BoopsiImage #AmigaTalk:Intuition/Boopsi.st \
  132.    #(  #itextObj #textColor \
  133.         #textOrigin #tagArray ) \
  134.    #( #xxxSetup #initialize:at:color: #color: #origin: #itextString:  ) \
  135.   pTempVar 4 14 > #ordinary >
  136.  
  137. pTempVar <- <primitive 110 17 >
  138. <primitive 112 pTempVar 1  " gadgetDisabled:index: " \
  139.   #( #[ 16r21 16rF7 16r05 16r51 16rF1 16r73 16rF8 16r04 16rF2 16r50 16rF1 \
  140.         16r73 16rF2 16r11 16r22 16r20 16r30 16r91 16r01 16rD0 16rF2 \
  141.         16r11 16r22 16r51 16rC0 16r23 16rD0 16rF2 16rF5] \
  142.     #( #GA_Disabled #boopsiTag:  )) >
  143.  
  144. <primitive 112 pTempVar 2  " gadgetSpecialInfo:index: " \
  145.   #( #[ 16r11 16r22 16r20 16r30 16r91 16r01 16rD0 16rF2 16r11 16r22 16r51 \
  146.         16rC0 16r21 16rD0 16rF2 16rF5] \
  147.     #( #GA_SpecialInfo #boopsiTag:  )) >
  148.  
  149. <primitive 112 pTempVar 3  " gadgetSelectRender:index: " \
  150.   #( #[ 16r11 16r22 16r20 16r30 16r91 16r01 16rD0 16rF2 16r11 16r22 16r51 \
  151.         16rC0 16r21 16rD0 16rF2 16rF5] \
  152.     #( #GA_SelectRender #boopsiTag:  )) >
  153.  
  154. <primitive 112 pTempVar 4  " gadgetBorder:index: " \
  155.   #( #[ 16r11 16r22 16r20 16r30 16r91 16r01 16rD0 16rF2 16r11 16r22 16r51 \
  156.         16rC0 16r21 16rD0 16rF2 16rF5] \
  157.     #( #GA_Border #boopsiTag:  )) >
  158.  
  159. <primitive 112 pTempVar 5  " gadgetID:index: " \
  160.   #( #[ 16r11 16r22 16r20 16r30 16r91 16r01 16rD0 16rF2 16r11 16r22 16r51 \
  161.         16rC0 16r21 16rD0 16rF2 16rF5] \
  162.     #( #GA_ID #boopsiTag:  )) >
  163.  
  164. <primitive 112 pTempVar 6  " gadgetImage:index: " \
  165.   #( #[ 16r11 16r22 16r20 16r30 16r91 16r01 16rD0 16rF2 16r11 16r22 16r51 \
  166.         16rC0 16r21 16rD0 16rF2 16rF5] \
  167.     #( #GA_Image #boopsiTag:  )) >
  168.  
  169. <primitive 112 pTempVar 7  " gadgetLabelImage:index: " \
  170.   #( #[ 16r11 16r22 16r20 16r30 16r91 16r01 16rD0 16rF2 16r11 16r22 16r51 \
  171.         16rC0 16r21 16rD0 16rF2 16rF5] \
  172.     #( #GA_LabelImage #boopsiTag:  )) >
  173.  
  174. <primitive 112 pTempVar 8  " gadgetText:index: " \
  175.   #( #[ 16r11 16r22 16r20 16r30 16r91 16r01 16rD0 16rF2 16r11 16r22 16r51 \
  176.         16rC0 16r21 16rD0 16rF2 16rF5] \
  177.     #( #GA_Text #boopsiTag:  )) >
  178.  
  179. <primitive 112 pTempVar 9  " gadgetIntuiText:index: " \
  180.   #( #[ 16r11 16r22 16r20 16r30 16r91 16r01 16rD0 16rF2 16r11 16r22 16r51 \
  181.         16rC0 16r21 16rD0 16rF2 16rF5] \
  182.     #( #GA_IntuiText #boopsiTag:  )) >
  183.  
  184. <primitive 112 pTempVar 10  " userData: " \
  185.   #( #[ 16r21 16rA3 16r73 16r05 16r1E 16r23 16rB0 16r72 16r51 16r23 16rB2 \
  186.         16rE1 16r04 16r07 16r22 16r24 16r21 16r24 16rB1 16rD0 16rF3 \
  187.         16rB3 16rF2 16r11 16r30 16r22 16rD0 16rF2 16rF5] \
  188.     #( 10  )) >
  189.  
  190. <primitive 112 pTempVar 11  " extent: " \
  191.   #( #[ 16r11 16r56 16r21 16r0A 16r31 16rD0 16rF2 16r11 16r58 16r21 16r0A \
  192.         16r32 16rD0 16rF2 16rF5] \
  193.     #(  )) >
  194.  
  195. <primitive 112 pTempVar 12  " origin: " \
  196.   #( #[ 16r11 16r52 16r21 16r0A 16r31 16rD0 16rF2 16r11 16r54 16r21 16r0A \
  197.         16r32 16rD0 16rF2 16rF5] \
  198.     #(  )) >
  199.  
  200. <primitive 112 pTempVar 13  " tagArray " \
  201.   #( #[ 16r11 16rF3] \
  202.     #(  )) >
  203.  
  204. <primitive 112 pTempVar 14  " setTagArray: " \
  205.   #( #[ 16r21 16r61 16rF5] \
  206.     #(  )) >
  207.  
  208. <primitive 112 pTempVar 15  " newBoopsiObject: " \
  209.   #( #[ 16r20 16r21 16r5D 16r11 16r93 16r00 16rF3] \
  210.     #( #newBoopsiObject:in:tags:  )) >
  211.  
  212. <primitive 112 pTempVar 16  " initialize " \
  213.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3] \
  214.     #( 'initialize' #subclassResponsibility:  )) >
  215.  
  216. <primitive 112 pTempVar 17  " new: " \
  217.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3] \
  218.     #( 'new:' #subclassResponsibility:  )) >
  219.  
  220. <primitive 98 #BoopsiGadget \
  221.   <primitive 97 #BoopsiGadget #Boopsi #AmigaTalk:Intuition/Boopsi.st \
  222.    #(  #gadObj #tagArray ) \
  223.    #( #gadgetDisabled:index: #gadgetSpecialInfo:index:  \
  224.        #gadgetSelectRender:index: #gadgetBorder:index: #gadgetID:index: #gadgetImage:index:  \
  225.        #gadgetLabelImage:index: #gadgetText:index: #gadgetIntuiText:index: #userData: #extent:  \
  226.        #origin: #tagArray #setTagArray: #newBoopsiObject: #initialize #new:  ) \
  227.   pTempVar 5 7 > #ordinary >
  228.  
  229. pTempVar <- <primitive 110 2 >
  230. <primitive 112 pTempVar 1  " initialize " \
  231.   #( #[ 16r20 16r20 16r30 16r91 16r01 16r91 16r02 16rF3] \
  232.     #( #BUTTONGCLASS #boopsiName: #newBoopsiObject:  )) >
  233.  
  234. <primitive 112 pTempVar 2  " new: " \
  235.   #( #[ 16r21 16r30 16rC7 16rF7 16r08 16r05 16r1E 16r30 16rB0 16rF1 16r72 \
  236.         16rF8 16r07 16rF2 16r05 16r1E 16r21 16rB0 16rF1 16r72 16rF2 \
  237.         16r22 16r51 16r20 16r31 16r91 16r02 16rD0 16rF2 16r22 16r52 \
  238.         16r50 16rD0 16rF2 16r22 16r53 16r20 16r33 16r91 16r02 16rD0 \
  239.         16rF2 16r22 16r54 16r50 16rD0 16rF2 16r22 16r55 16r20 16r34 \
  240.         16r91 16r02 16rD0 16rF2 16r22 16r56 16r35 16rD0 16rF2 16r22 \
  241.         16r57 16r20 16r36 16r91 16r02 16rD0 16rF2 16r22 16r58 16r05 \
  242.         16r14 16rD0 16rF2 16r22 16r59 16r20 16r37 16r91 16r02 16rD0 \
  243.         16rF2 16r22 16r38 16r5D 16rD0 16rF2 16r22 16r30 16r20 16r39 \
  244.         16r91 16r02 16rD0 16rF2 16r20 16r22 16r20 16r0B 16r11 16r91 \
  245.         16r0A 16rF2 16rF5] \
  246.     #( 11 #GA_Left #boopsiTag: #GA_Top #GA_Width 50 #GA_Height #GA_UserData \
  247.         10 #TAG_DONE #setTagArray:  )) >
  248.  
  249. <primitive 98 #BoopsiButtonGadget \
  250.   <primitive 97 #BoopsiButtonGadget #BoopsiGadget #AmigaTalk:Intuition/Boopsi.st \
  251.    #(  #imageObj ) \
  252.    #( #initialize #new:  ) \
  253.   pTempVar 3 9 > #ordinary >
  254.  
  255. pTempVar <- <primitive 110 1 >
  256. <primitive 112 pTempVar 1  " junk " \
  257.   #( #[ 16r5D 16rF3] \
  258.     #(  )) >
  259.  
  260. <primitive 98 #BoopsiFramedButton \
  261.   <primitive 97 #BoopsiFramedButton #BoopsiButtonGadget #AmigaTalk:Intuition/Boopsi.st \
  262.    #(  #frameType ) \
  263.    #( #junk  ) \
  264.   pTempVar 1 2 > #ordinary >
  265.  
  266. pTempVar <- <primitive 110 1 >
  267. <primitive 112 pTempVar 1  " junk " \
  268.   #( #[ 16r5D 16rF3] \
  269.     #(  )) >
  270.  
  271. <primitive 98 #BoopsiPropGadget \
  272.   <primitive 97 #BoopsiPropGadget #BoopsiGadget #AmigaTalk:Intuition/Boopsi.st \
  273.    #(  #totalSize \
  274.         #visibleSize #currentValue #orientation ) \
  275.    #( #junk  ) \
  276.   pTempVar 1 2 > #ordinary >
  277.  
  278. pTempVar <- <primitive 110 1 >
  279. <primitive 112 pTempVar 1  " junk " \
  280.   #( #[ 16r5D 16rF3] \
  281.     #(  )) >
  282.  
  283. <primitive 98 #BoopsiStringGadget \
  284.   <primitive 97 #BoopsiStringGadget #BoopsiGadget #AmigaTalk:Intuition/Boopsi.st \
  285.    #(  #font #pens #maxLength #mode \
  286.         #justification ) \
  287.    #( #junk  ) \
  288.   pTempVar 1 2 > #ordinary >
  289.  
  290. pTempVar <- <primitive 110 1 >
  291. <primitive 112 pTempVar 1  " junk " \
  292.   #( #[ 16r5D 16rF3] \
  293.     #(  )) >
  294.  
  295. <primitive 98 #BoopsiImage \
  296.   <primitive 97 #BoopsiImage #Boopsi #AmigaTalk:Intuition/Boopsi.st \
  297.    #(  #origin #extent #pens #imageData ) \
  298.    #( #junk  ) \
  299.   pTempVar 1 2 > #ordinary >
  300.  
  301. pTempVar <- <primitive 110 1 >
  302. <primitive 112 pTempVar 1  " junk " \
  303.   #( #[ 16r5D 16rF3] \
  304.     #(  )) >
  305.  
  306. <primitive 98 #BoopsiFillRect \
  307.   <primitive 97 #BoopsiFillRect #BoopsiImage #AmigaTalk:Intuition/Boopsi.st \
  308.    #(  #fillPattern #drawMode \
  309.         #patternSize ) \
  310.    #( #junk  ) \
  311.   pTempVar 1 2 > #ordinary >
  312.  
  313. pTempVar <- <primitive 110 1 >
  314. <primitive 112 pTempVar 1  " junk " \
  315.   #( #[ 16r5D 16rF3] \
  316.     #(  )) >
  317.  
  318. <primitive 98 #BoopsiFrame \
  319.   <primitive 97 #BoopsiFrame #BoopsiImage #AmigaTalk:Intuition/Boopsi.st \
  320.    #(  ) \
  321.    #( #junk  ) \
  322.   pTempVar 1 2 > #ordinary >
  323.  
  324. pTempVar <- <primitive 110 1 >
  325. <primitive 112 pTempVar 1  " junk " \
  326.   #( #[ 16r5D 16rF3] \
  327.     #(  )) >
  328.  
  329. <primitive 98 #BoopsiSystemImage \
  330.   <primitive 97 #BoopsiSystemImage #BoopsiImage #AmigaTalk:Intuition/Boopsi.st \
  331.    #(  #whichImage #drawInfo #imageSize ) \
  332.    #( #junk  ) \
  333.   pTempVar 1 2 > #ordinary >
  334.  
  335. pTempVar <- <primitive 110 4 >
  336. <primitive 112 pTempVar 1  " xxxBoopsiTag: " \
  337.   #( #[ 16r12 16r21 16r81 16r00 16rF3] \
  338.     #( #systemTag:  )) >
  339.  
  340. <primitive 112 pTempVar 2  " setTagValue:value: " \
  341.   #( #[ 16r20 16r20 16r21 16r81 16r00 16r22 16r92 16r01 16rF2 16rF5] \
  342.     #( #xxxBoopsiTag: #setTagValue:value:  )) >
  343.  
  344. <primitive 112 pTempVar 3  " setTag:index: " \
  345.   #( #[ 16r20 16r20 16r21 16r81 16r00 16r22 16r92 16r01 16rF3] \
  346.     #( #xxxBoopsiTag: #setTag:index:  )) >
  347.  
  348. <primitive 112 pTempVar 4  " new: " \
  349.   #( #[ 16r22 16rA1 16rF7 16r04 16r40 16rA0 16rF1 16r72 16rF2 16r12 16rA1 \
  350.         16rF7 16r04 16r41 16rA0 16rF1 16r62 16rF2 16r21 16r60 16r20 \
  351.         16r10 16r91 16r02 16r61 16r11 16r10 16r22 16r33 16r81 16r04 \
  352.         16rD0 16rF2 16r20 16rF3] \
  353.     #( #Intuition #BoopsiTags #new: #TAG_DONE #systemTag:  )) >
  354.  
  355. <primitive 98 #BoopsiMap \
  356.   <primitive 97 #BoopsiMap #TagList #AmigaTalk:Intuition/Boopsi.st \
  357.    #(  #numTags #tagArray #boopsiTags ) \
  358.    #( #xxxBoopsiTag: #setTagValue:value: #setTag:index: #new:  ) \
  359.   pTempVar 3 6 > #ordinary >
  360.  
  361. pTempVar <- <primitive 110 1 >
  362. <primitive 112 pTempVar 1  " junk " \
  363.   #( #[ 16r5D 16rF3] \
  364.     #(  )) >
  365.  
  366. <primitive 98 #BoopsiIC \
  367.   <primitive 97 #BoopsiIC #Boopsi #AmigaTalk:Intuition/Boopsi.st \
  368.    #(  \
  369.         #target #map #specialCode ) \
  370.    #( #junk  ) \
  371.   pTempVar 1 2 > #ordinary >
  372.  
  373. pTempVar <- <primitive 110 1 >
  374. <primitive 112 pTempVar 1  " junk " \
  375.   #( #[ 16r5D 16rF3] \
  376.     #(  )) >
  377.  
  378. <primitive 98 #BoopsiModel \
  379.   <primitive 97 #BoopsiModel #BoopsiIC #AmigaTalk:Intuition/Boopsi.st \
  380.    #(  ) \
  381.    #( #junk  ) \
  382.   pTempVar 1 2 > #ordinary >
  383.  
  384.